home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / A / ASU Library.sit / ASU Red Ryder Shell Source / 1200 next >
Encoding:
Text File  |  1988-04-07  |  636 b   |  49 lines  |  [TEXT/MACA]
  1. (1200)
  2. COPYINTO B$,S$
  3. CONCAT B$,-E-7-1-FULL
  4. COMM B$
  5. SCREEN ON
  6. CONTAINS L$,TOUCHTONE
  7. IF YES COPYINTO D$,ATDT 
  8. CONTAINS L$,PULSE
  9. IF YES COPYINTO D$,ATDP 
  10. CONCAT D$,N$
  11. TYPE ATH^M
  12. PAUSE
  13. TYPE ATZ^M
  14. PAUSE
  15. DIAL D$
  16. PAUSE
  17. PROMPT NECT
  18. PAUSE 30
  19. TYPE ^M
  20. PAUSE 10
  21. TYPE ^M
  22. PAUSE 10
  23. TYPE ^M
  24. PAUSE 10
  25. TYPE ^M
  26. PAUSE 10
  27. TYPE ^M
  28. PAUSE 10
  29. PROMPT stination:
  30. CONTAINS H$,ACIBM
  31. IF YES TYPE ACIBMPC^M
  32. CONTAINS H$,ADMIN
  33. IF YES TYPE ICIBMPC^M
  34. CONTAINS H$,ACVAX
  35. IF YES TYPE ACVAX^M
  36. CONTAINS H$,LIBR
  37. IF YES TYPE LIBRARY^M
  38. PROMPT CLOSED
  39. CONTAINS H$,LIBR
  40. IF YES JUMPTO LIBR
  41. TYPE ^M
  42. CONTAINS H$,ACVAX
  43. IF YES END
  44. PROMPT NAL TYPE: 
  45. PAUSE
  46. TYPE VT100^M
  47. END
  48. :LIBR
  49. TYPE 2^M